home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / utility / fwklu118.zip / GETLOOK.BAT < prev    next >
DOS Batch File  |  1992-09-11  |  2KB  |  66 lines
  1. @echo off
  2. cls
  3. echo - Part of FWKCS(TM) Contents_Signature System, Version 1.18.
  4. echo - (C)Copyright Frederick W. Kantor 1989-1992. All rights reserved.
  5. echo -
  6. echo - Your use of the FWKCS(TM) Contents_Signature System is at solely your own
  7. echo - risk.  For safety, please have proper backups of your files.
  8. echo -
  9. echo - GETLOOK.BAT to access the remote lookup functions in the FWKLU118.ZIP kit;
  10. echo -             for use in the same directory with FWKLU.118 and FWKLU_TM.118.
  11. echo -
  12. echo - Usage:
  13. echo -
  14. echo -        GETLOOK "<enter>"
  15. if "%1" == "/*" goto end0
  16. echo -
  17. echo -  To quit, press Ctrl+C, then y
  18. echo -
  19. pause
  20. if not exist fwklu.118 goto nd
  21. if not exist fwklu_tm.118 goto cm
  22. ren fwklu_tm.118 fwklu_tm.com > nul
  23. fwklu_tm < fwklu.118 >fwklutmp.118
  24. if errorlevel 1 goto fbad
  25. ren fwklu_tm.com fwklu_tm.118 > nul
  26. pkunzip -o fwklutmp.118 fwkcs.exe fwkcs118.h0? lookup.bat rcrosref.bat lookup.doc register.doc > nul
  27. if errorlevel 51 goto fz
  28. if errorlevel 50 goto ns
  29. if errorlevel 1 goto fz
  30. goto end
  31. :ns
  32. echo -
  33. echo - Not enough space to work in. After you provide more space...
  34. goto delbad
  35. :fz
  36. echo -
  37. echo - Error getting files.
  38. :delbad
  39. if exist fwkcs.exe del fwkcs.exe > nul
  40. if exist lookup.bat del lookup.bat > nul
  41. if exist rcrosref.bat del rcrosref.bat > nul
  42. if exist lookup.doc del lookup.doc > nul
  43. if exist register.doc del register.doc > nul
  44. goto try
  45. :fbad
  46. ren fwklu_tm.com fwklu_tm.118 > nul
  47. echo -
  48. echo -  FWKLU.118 appears defective or incompatible. Execution aborted.
  49. :try
  50. echo -
  51. echo -  Please clean up, and try again. See README.TXT.
  52. goto end0
  53. :cm
  54. echo -
  55. echo -  I need FWKLU_TM.118.
  56. echo -
  57. echo -        I quit!
  58. goto end0
  59. :nd
  60. echo -
  61. echo -    Nothing to do!
  62. :end0
  63. echo -
  64. :end
  65. if exist fwklutmp.118 del fwklutmp.118 > nul
  66.